(batch-update-autoloads): Fix last change to not error out of search
authorEli Zaretskii <eliz@gnu.org>
Wed, 7 Oct 2009 09:58:11 +0000 (09:58 +0000)
committerEli Zaretskii <eliz@gnu.org>
Wed, 7 Oct 2009 09:58:11 +0000 (09:58 +0000)
for "^lisp=" fails.

lisp/emacs-lisp/autoload.el

index 593cdb6828471bc272edac1cdc427185ab8479bf..7a0a43631deb3ef33c62e5bb84364951bf393eef 100644 (file)
@@ -691,7 +691,7 @@ Calls `update-directory-autoloads' on the command line arguments."
       (when (file-readable-p mfile)
        (with-temp-buffer
          (insert-file-contents mfile)
-         (when (re-search-forward "^lisp= ")
+         (when (re-search-forward "^lisp= " nil t)
            (setq lim (line-end-position))
            (while (re-search-forward "\\${lispsource}\\([^ ]*\\)\\.elc?" lim t)
              (push (concat (expand-file-name (match-string 1) ldir) ".el")